Information for Youth Empowerment,
New Opportunities - Better Perspectives
Interactive education and Resource Network
I M O R
|
Information for Youth Empowerment, |
|
Interactive education and Resource Network |
|
|
||
Activities
Training
Forum
Gallery
Contact Us
[ Content | Send message | Login | Logout | List of participants ]
| Title: | Sent by: | Date: |
|---|---|---|
<%
Dim Niza(5000)
Dim brPoraki
'SQL="SELECT count(*) AS brPoraki FROM poraki WHERE roditel=0"
'set objrs=objConn.execute (sql)
'brPoraki=objRS.fields("brPoraki")
'objRS.close
'Response.write(brPoraki)&" " brPoraki=0 strSQL="SELECT porakaID FROM Poraki where roditel=0" objRs.Open strSQL, objConn, 3, 3 While Not objRS.EOF Niza(brPoraki)=objRS.Fields("PorakaID") brPoraki=BrPoraki+1 objRS.MoveNext Wend objRS.close set objRS1 = Server.CreateObject("ADODB.RecordSet") For i=0 to brPoraki-1 tab=" " strSQL="Select korisnici.username from korisnici INNER JOIN poraki ON korisnici.korisnikID=poraki.username WHERE poraki.porakaID="& Niza(i) set objRS=objConn.execute(strSQL) ime=objRS.Fields("username") objRS.close strSQL="Select Naslov,datum from poraki WHERE porakaID="& Niza(i) set objRS=objConn.execute(strSQL) naslov=objRS.Fields("naslov") datum=objRS.Fields("datum") objRS.close %> <%=naslov%> |
<%=Ime%> | <%=datum%> |
<%
strSQL="SELECT porakaID,username,naslov,datum FROM Poraki where roditel="&niza(i)
objRs.Open strSQL, objConn, 3, 3
While Not objRS.EOF
strSQL="Select korisnici.username from korisnici INNER JOIN poraki ON korisnici.korisnikID=poraki.username WHERE poraki.username="& objRS.fields("username")
set objRS1=objConn.execute(strSQL)
ime=objRS1.Fields("username")
objRS1.close
Response.write(tab)%>
<%=objRS.Fields("naslov")%> |
<%=Ime%> | <%=objRS.Fields("Datum")%> |
<%
tab=tab&" "
objRS.MoveNext
Wend
objRS.close
Next
%>
|
[ Content | Send message | Back | Logout ]
<% 'end if /za session user %>